Mac-Source 1994 July/Mac-Source_July_1994.iso/C and C++/Compilers⁄Interps/GCC-2.3.3r12/Tests/pascal1.c

C/C++ Source or Header | 1993-06-09 | 478 b | 31 lines | [TEXT/MPS ]

#include "testlib.h"

pascal long subr1(long ch, long sh, long lo);
pascal long subr3(long ch, long sh, long lo);

test_pascal_1()
{
    Debugger();
    itesteq(__LINE__, 'b', subr1('a', 12345, 987654321));
    itesteq(__LINE__, 987654322, subr3('a', 12345, 987654321));
}

pascal long subr1(long ch, long sh, long lo)
{
    return ch + 1;
}

pascal long subr3(long ch, long sh, long lo)
{
    return lo + 1;
}

int
main()
{
    curtestfile = __FILE__;
    test_pascal_1();
    summary();
    return 0;
}